home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / CBGRX100.ARJ / P4PIXCOL.C < prev    next >
Text File  |  1992-04-10  |  2KB  |  62 lines
  1. /** 
  2.  ** P4PIXCOL.C 
  3.  **
  4.  **  Copyright (C) 1992, Csaba Biegl
  5.  **    820 Stirrup Dr, Nashville, TN, 37221
  6.  **    csaba@vuse.vanderbilt.edu
  7.  **
  8.  **  This file is distributed under the terms listed in the document
  9.  **  "copying.cb", available from the author at the address above.
  10.  **  A copy of "copying.cb" should accompany this file; if not, a copy
  11.  **  should be available from where this file was obtained.  This file
  12.  **  may not be distributed without a verbatim copy of "copying.cb".
  13.  **  You should also have received a copy of the GNU General Public
  14.  **  License along with this program (it is in the file "copying");
  15.  **  if not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  16.  **  Cambridge, MA 02139, USA.
  17.  **
  18.  **  This program is distributed in the hope that it will be useful,
  19.  **  but WITHOUT ANY WARRANTY; without even the implied warranty of
  20.  **  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21.  **  GNU General Public License for more details.
  22.  **/
  23.  
  24. #include "p4.h"
  25. #include "memfill.h"
  26.  
  27. void _GrP4SetPixColumn(long addr,int color,int height)
  28. {
  29.     pixptr p = P_ADDRESS(CURC,addr);
  30.     int mask = 0x80 >> P_OFFSET(addr);
  31.     int offs = CURC->gc_lineoffset;
  32.     int opr  = C_OPER(color);
  33.     int plane;
  34.  
  35.     if(height <= 0) return;
  36.     if((_GrP4DrawTable[opr] ^ (color &= C_SIGNIF)) == 0) return;
  37.     if(CURC->gc_onscreen) {
  38.         _SetVideoColor(color,opr);
  39.         _SetVGAWriteMask(mask);
  40.         _ColSetXorB(VIDEO,p,offs,0,height);
  41.         return;
  42.     }
  43.     opr <<= 1;
  44.     for(plane = 4; --plane >= 0; color >>= 1) {
  45.         switch(opr + (color & 1)) {
  46.           case C_XOR2+1:
  47.         _ColSetXorB(MEM_X,p,offs,mask,height);
  48.         break;
  49.           case C_OR2+1:
  50.           case C_SET2+1:
  51.         _ColSetOrB(MEM_1,p,offs,mask,height);
  52.         break;
  53.           case C_AND2+0:
  54.           case C_SET2+0:
  55.         _ColSetAndB(MEM_0,p,offs,~mask,height);
  56.         break;
  57.         }
  58.         p = (pixptr)((long)p + CURC->gc_planeoffset);
  59.     }
  60. }
  61.  
  62.